perm filename FONT1.LST[MF,DEK] blob
sn#756301 filedate 1984-05-28 generic text, type T, neo UTF8
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 1,1
**** File 1) FONT1.RAW[MF,DEK]/1P/16L
1) C00024 00014 % L by Bruce Leban
1) C00026 00015 % M by Kwang-Chun Park
1) C00028 00016 % N by Dave Siegel
1) C00030 00017 % O by Bruce Fleischer
1) C00032 00018 % P by Ed Williams
1) C00034 00019 % Q by Neenie Billawala
1) C00036 00020 % R by Renata Byl
1) C00038 00021 % S by pinch-hitter Joey Tuttle
1) C00040 00022 % T by Tuan Pham
1) C00042 00023 % alternate T by Theresa-Marie Rhyne
1) C00044 00024 % U by Don Knuth
1) C00045 00025 % V by Kanchi Gopinath
1) C00046 00026 % W by Stan Osborne
1) C00048 00027 % X by Alan Spragens
1) C00049 00028 % Y by Arnie Olds
1) C00050 00029 % Z by Malcolm Brown
1) C00053 00030 % a by Ann Lasko-Harvill
1) C00055 00031 % b by Dave Siegel
1) C00058 00032 % c by Alan Spragens
1) C00059 00033 % d by Jean-Luc Bonnetain
1) C00063 00034 % e by Dan Mills
1) C00065 00035 % f by Malcolm Brown
1) C00067 00036 % g by Bruce Leban
1) C00071 00037 % h by Arnie Olds
1) C00072 00038 % i by Bruce Fleischer
1) C00074 00039 % j by John Hershberger
1) C00078 00040 % k by Renata Byl
1) C00079 00041 % l by Don Knuth
1) C00080 00042 % m by Dikran Karagueuzian
1) C00082 00043 % n by Lynn Ruggles
1) C00084 00044 % o by Stan Osborne
1) C00087 00045 % p by Theresa-Marie Rhyne
1) C00089 00046 % q by Pavel Curtis
1) C00091 00047 % r by Arthur Samuel
1) C00093 00048 % s by Kwang-Chun Park
1) C00096 00049 % t by Tuan Pham
1) C00097 00050 % u by Nori Takusue
1) C00099 00051 % v by Ed Williams
1) C00100 00052 % w by Joey Tuttle
1) C00102 00053 % x by William Burley
1) C00103 00054 % y by Neenie Billawala
1) C00105 00055 % z by Kanchi Gopinath
1) C00106 00056 % - by Dan Mills
1) C00107 00057 % . by Dan Mills
1) C00108 00058 % , by Dan Mills
1) C00110 00059 % now we generate the font!
1) C00113 ENDMK
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 1,1
1) C⊗;
**** File 2) FONT1.MF[MF,DEK]/1P/16L
2) C00025 00014 % L by Bruce Leban
2) C00027 00015 % M by Kwang-Chun Park
2) C00029 00016 % N by Dave Siegel
2) C00031 00017 % O by Bruce Fleischer
2) C00033 00018 % P by Ed Williams
2) C00035 00019 % Q by Neenie Billawala
2) C00037 00020 % R by Renata Byl
2) C00039 00021 % S by pinch-hitter Joey Tuttle
2) C00041 00022 % T by Tuan Pham
2) C00043 00023 % alternate T by Theresa-Marie Rhyne
2) C00045 00024 % U by Don Knuth
2) C00046 00025 % V by Kanchi Gopinath
2) C00047 00026 % W by Stan Osborne
2) C00049 00027 % X by Alan Spragens
2) C00050 00028 % Y by Arnie Olds
2) C00051 00029 % Z by Malcolm Brown
2) C00054 00030 % a by Ann Lasko-Harvill
2) C00056 00031 % b by Dave Siegel
2) C00059 00032 % c by Alan Spragens
2) C00060 00033 % d by Jean-Luc Bonnetain
2) C00064 00034 % e by Dan Mills
2) C00066 00035 % f by Malcolm Brown
2) C00068 00036 % g by Bruce Leban
2) C00072 00037 % h by Arnie Olds
2) C00073 00038 % i by Bruce Fleischer
2) C00075 00039 % j by John Hershberger
2) C00079 00040 % k by Renata Byl
2) C00080 00041 % l by Don Knuth
2) C00081 00042 % m by Dikran Karagueuzian
2) C00083 00043 % n by Lynn Ruggles
2) C00085 00044 % o by Stan Osborne
2) C00088 00045 % p by Theresa-Marie Rhyne
2) C00090 00046 % q by Pavel Curtis
2) C00092 00047 % r by Arthur Samuel
2) C00094 00048 % s by Kwang-Chun Park
2) C00097 00049 % t by Tuan Pham
2) C00098 00050 % u by Nori Takusue
2) C00100 00051 % v by Ed Williams
2) C00101 00052 % w by Joey Tuttle
2) C00103 00053 % x by William Burley
2) C00104 00054 % y by Neenie Billawala
2) C00106 00055 % z by Kanchi Gopinath
2) C00107 00056 % - by Dan Mills
2) C00108 00057 % . by Dan Mills
2) C00109 00058 % , by Dan Mills
2) C00111 00059 % now we generate the font!
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 1,1
2) C00114 ENDMK
2) C⊗;
***************
**** File 1) FONT1.RAW[MF,DEK]/3P/1L
1) % A by Ann Lasko-Harvill
**** File 2) FONT1.MF[MF,DEK]/2P/14L
2) special "grayfont grbois";
2) def autolabel = makelabel(" 6") enddef;
2) % A by Ann Lasko-Harvill
***************
**** File 1) FONT1.RAW[MF,DEK]/5P/5L
1) pos2(thickwidth,165);
1) pos3(thinwidth,90);
1) pos4(thinwidth,65);
1) pos5(.7thickwidth,0);
1) pos6(thickwidth,0);
1) pos7(thickwidth,15);
1) pos8(thinwidth,90);
1) pos9(thinwidth,110);
1) pos10(.7thickwidth,180);
1) z1=(.15w+.5thickwidth,.5capheight); dz1=(0,1);
1) z2=(.22w+.5thickwidth,.83capheight);
1) z3=(.56w,capheight); dz3=(1,0);
**** File 2) FONT1.MF[MF,DEK]/5P/5L
2) pos2(thickwidth,145);
2) pos3(thinwidth,90);
2) pos4(thinwidth,45);
2) pos5(.7thickwidth,0);
2) pos6(thickwidth,0);
2) pos7(thickwidth,45);
2) pos8(thinwidth,90);
2) pos9(thinwidth,135);
2) pos10(.7thickwidth,180);
2) z1=(.15w+.5thickwidth,.5capheight); dz1=(0,1);
2) % z2=(.22w+.5thickwidth,.83capheight);
2) x2=.72[x3,x1]; y2=.72[y1,y3];
2) z3=(.56w,capheight); dz3=(1,0);
***************
**** File 1) FONT1.RAW[MF,DEK]/5P/20L
1) z7=(.22w+.5thickwidth,.17capheight);
1) z8=(.56w,0); dz8=(1,0);
**** File 2) FONT1.MF[MF,DEK]/5P/21L
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 5,5
2) % z7=(.22w+.5thickwidth,.17capheight);
2) x7=.72[x8,x1]; y7=.72[y1,y8];
2) z8=(.56w,0); dz8=(1,0);
***************
**** File 1) FONT1.RAW[MF,DEK]/6P/9L
1) glyphwidth = .6em;
1) lsb = .2glyphwidth;
**** File 2) FONT1.MF[MF,DEK]/6P/9L
2) glyphwidth = .5em;
2) lsb = .2glyphwidth;
***************
**** File 1) FONT1.RAW[MF,DEK]/7P/14L
1) enddef;
**** File 2) FONT1.MF[MF,DEK]/7P/14L
2) labelpos(1,2,3,4,5,6,7,8);
2) enddef;
***************
**** File 1) FONT1.RAW[MF,DEK]/10P/13L
1) setwidth .58em; %
1) % Left vertical stroke
**** File 2) FONT1.MF[MF,DEK]/10P/13L
2) setwidth .68em; %
2) % Left vertical stroke
***************
**** File 1) FONT1.RAW[MF,DEK]/10P/30L
1) pos5( .75thinwidth, 70 ); % Thinner thin stroke
1) pos6( .75thinwidth, 80 ); % getting no wider
1) % Now draw it
**** File 2) FONT1.MF[MF,DEK]/10P/30L
2) pos5(1.25thinwidth, 70 ); % Thicker thin stroke!
2) pos6(1.25thinwidth, 80 ); % getting no wider
2) % Now draw it
***************
**** File 1) FONT1.RAW[MF,DEK]/11P/4L
1) pos1(1.5thickwidth,5);
1) pos2(1.1thickwidth,0);
1) pos3(1.5thickwidth,2.5); % temporary value
1) x1=x2=x3; % straight I
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 11,11
**** File 2) FONT1.MF[MF,DEK]/11P/4L
2) pos1(1.4thickwidth,5);
2) pos2(thickwidth,0);
2) pos3(1.4thickwidth,2.5); % temporary value
2) x1=x2=x3; % straight I
***************
**** File 1) FONT1.RAW[MF,DEK]/12P/22L
1) enddef;
**** File 2) FONT1.MF[MF,DEK]/12P/22L
2) labelpos(1,2,3,4,5);
2) enddef;
***************
**** File 1) FONT1.RAW[MF,DEK]/17P/17L
1) topedge := .05 capheight;
1) sidebar := .07em;
**** File 2) FONT1.MF[MF,DEK]/17P/17L
2) topedge := .03 capheight;
2) sidebar := .07em;
***************
**** File 1) FONT1.RAW[MF,DEK]/23P/8L
1) z1=(.5w,0);y1=0;
1) y2=capheight; x1r=x2r;
1) z3=(0,.5w);
1) y3=capheight; x3r=x4r;
1) stroke(1,2,.2,.05,.05);
**** File 2) FONT1.MF[MF,DEK]/23P/8L
2) z1=(.5w,0);%y1=0;
2) y2r=capheight; x1r=x2r;
2) y3r=y4r=capheight; x3r=w-x4r=.1em;
2) stroke(1,2,.2,.05,.05);
***************
**** File 1) FONT1.RAW[MF,DEK]/25P/5L
1) pos1(1.1thickwidth,10);
1) pos2(thickwidth,65);
1) pos3(thinwidth,0);
**** File 2) FONT1.MF[MF,DEK]/25P/5L
2) pos1(1.6thickwidth,10);
2) pos2(1.5thickwidth,65);
2) pos3(thinwidth,0);
***************
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 25,25
**** File 1) FONT1.RAW[MF,DEK]/26P/3L
1) setwidth 1em; % set up our char width and variables
1) pos1(1.5thickwidth,-30); % position upper left vector vec(1)
1) y1l = hheight; % set height as tall as an "h"
1) x1l = .02w; % all the way to the left
**** File 2) FONT1.MF[MF,DEK]/26P/3L
2) setwidth .9em; % set up our char width and variables
2) pos1(2thickwidth,-30); % position upper left vector vec(1)
2) y1 = capheight; % don't set height as tall as an "h"
2) x1l = .02w; % all the way to the left
***************
**** File 1) FONT1.RAW[MF,DEK]/26P/14L
1) pos3(1.9thickwidth,-88); % position middle vector vec(3)
1) z3l = (0.51w,1.07xheight); % in the middle, top as high as "x"
1) stroke(2,3,.4,.2,0); % center left stroke
1) pos4(1.9thickwidth,92); % position other middle vector vec(4)
1) z4r = z3l; % vec(4) is a 180 of vec(3)
**** File 2) FONT1.MF[MF,DEK]/26P/14L
2) pos3(.5[2thickwidth,2thinwidth],-88);% position middle vector vec(3)
2) z3l = (0.51w,1.07xheight); % in the middle, top as high as "x"
2) stroke(2,3,.4,.2,0); % center left stroke
2) pos4(.5[2thickwidth,2thinwidth],92);% position other middle vector vec(4)
2) z4r = z3l; % vec(4) is a 180 of vec(3)
***************
**** File 1) FONT1.RAW[MF,DEK]/26P/29L
1) y6r = hheight; % set height as tall as an "h"
1) x6r = 1.0w; % all the way to the right
**** File 2) FONT1.MF[MF,DEK]/26P/29L
2) y6 = capheight; % don't set height as tall as an "h"
2) x6r = 1.0w; % all the way to the right
***************
**** File 1) FONT1.RAW[MF,DEK]/30P/7L
1) pos2(.85thickwidth,-45);
1) x2=.24[x1,x3];
1) y2=.6[y1,y3];
1) dz2=(1,1);
1) pos3(.75thinwidth,-90);
**** File 2) FONT1.MF[MF,DEK]/30P/7L
2) pos2(.5[1.1thickwidth,.75thinwidth],-30);
2) x2=.24[x1,x3];
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 30,30
2) y2=.76[y1,y3];
2) % dz2=(1,1);
2) pos3(.75thinwidth,-90);
***************
**** File 1) FONT1.RAW[MF,DEK]/30P/15L
1) pos4(thickwidth,-155); x4=.375em;
1) y4l=.975xheight;
1) dz4=(1,-1);
**** File 2) FONT1.MF[MF,DEK]/30P/15L
2) pos4(.25[thickwidth,.75thinwidth],-155);
2) x4l=.75[x3l,x5l];
2) y4l=.75[y5l,y3l];
2) dz4=(1,-1);
***************
**** File 1) FONT1.RAW[MF,DEK]/30P/36L
1) x9=x5r;
1) y9=.65xheight;
**** File 2) FONT1.MF[MF,DEK]/30P/37L
2) x9=x5r+1;
2) y9=.65xheight;
***************
**** File 1) FONT1.RAW[MF,DEK]/30P/41L
1) y10=.4[x11,x9];
1) dz10=(-1,-1);
**** File 2) FONT1.MF[MF,DEK]/30P/42L
2) y10=.2[y9,y11];
2) dz10=(-1,-1);
***************
**** File 1) FONT1.RAW[MF,DEK]/30P/52L
1) x13=x6r;
1) y13=y6;
**** File 2) FONT1.MF[MF,DEK]/30P/53L
2) x13=x6r+1;
2) y13=y6;
***************
**** File 1) FONT1.RAW[MF,DEK]/30P/58L
1) labelpos(1,2,3,4,5,6,7,8,9,10,11,12,13);
1) enddef;
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 30,30
**** File 2) FONT1.MF[MF,DEK]/30P/59L
2) labelpos(1,2,3,4,5,13,6,7,8,9,10,11,12);
2) enddef;
***************
**** File 1) FONT1.RAW[MF,DEK]/32P/5L
1) pos2(.8thickwidth,90);
1) pos3(1.1 thickwidth,180);
1) pos4(.95 thickwidth,220);
1) pos5(.8 thickwidth,260);
1) z1=(w,.85 xheight);
1) z2=(.5w,xheight);
**** File 2) FONT1.MF[MF,DEK]/32P/5L
2) pos2(.8[thickwidth,thinwidth],90);
2) pos3(1.1 thickwidth,180);
2) pos4(.2[thickwidth,thinwidth],220);
2) pos5(1.1thickwidth,260);
2) z1=(w-.075em,.85 xheight);
2) z2=(.5w,xheight);
***************
**** File 1) FONT1.RAW[MF,DEK]/32P/15L
1) x5=w;
1) y5=.2xheight;
**** File 2) FONT1.MF[MF,DEK]/32P/15L
2) x5=w-.05em;
2) y5=.2xheight;
***************
**** File 1) FONT1.RAW[MF,DEK]/33P/10L
1) % in the normal version, thindwidth/(thickwidth-thinwidth) = 11/4
**** File 2) FONT1.MF[MF,DEK]/33P/10L
2) % but actually the formula gives 1.9thinwidth in all cases!
2) % in the normal version, thindwidth/(thickwidth-thinwidth) = 11/4
***************
**** File 1) FONT1.RAW[MF,DEK]/33P/40L
1) dz4 = (-1,0);
**** File 2) FONT1.MF[MF,DEK]/33P/41L
2) dz3 = (-1,50); % avoids possible loop at z3l
2) dz4 = (-1,0);
***************
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 37,37
**** File 1) FONT1.RAW[MF,DEK]/37P/2L
1) vardef char.h = setwidth .55em; pos1(1.5thickwidth,45);
1) pos2(1.05thickwidth,10); x2l=.1em; x8l=w-.1em;
**** File 2) FONT1.MF[MF,DEK]/37P/2L
2) vardef char.h = setwidth .6em; pos1(1.5thickwidth,45);
2) pos2(1.05thickwidth,10); x2l=.1em; x8l=w-.1em;
***************
**** File 1) FONT1.RAW[MF,DEK]/37P/6L
1) pos4(.63[thickwidth,thinwidth],-55);
1) pos5(.25[thickwidth,thinwidth],-110); pos6(thickwidth,-150);
**** File 2) FONT1.MF[MF,DEK]/37P/6L
2) pos4(thinwidth,-55);
2) pos5(.25[thickwidth,thinwidth],-110); pos6(thickwidth,-150);
***************
**** File 1) FONT1.RAW[MF,DEK]/39P/33L
1) fudge:= .00em; % This was originally used to move the bottom
1) % of the stroke right to achieve an equivalent
**** File 2) FONT1.MF[MF,DEK]/39P/33L
2) fudge:= .005em; % This was originally used to move the bottom
2) % of the stroke right to achieve an equivalent
***************
**** File 1) FONT1.RAW[MF,DEK]/39P/39L
1) x2r=x1r+fudge; y2r = .3xheight; % Top of curve
1) dz2=(0,-1); % Heading down
1) x3= rcurve[x4,x2]; y3 = rcurve[y2,y4]; % See below
1) y4r= -.05capheight; x4l= .5[x6l,x2l]; % Inside of curve is flat in center
1) dz4=(-1,0); % Heading left
1) x5 = lcurve[x4,x6]; y5 = lcurve[y6,y4];
1) x6r = lspace; y6l = .8 y2r; % Pen is flipped, curve ends just
1) % below where it starts on other side.
**** File 2) FONT1.MF[MF,DEK]/39P/39L
2) x2r=x1r+fudge; y2r = .3[-ydepth,xheight]; % Top of curve
2) dz2=(0,-1); % Heading down
2) x3= rcurve[x4,x2]; y3 = rcurve[y2,y4]; % See below
2) y4r=-ydepth -.05capheight; x4l= .5[x6l,x2l]; % Inside of curve is flat in center
2) dz4=(-1,0); % Heading left
2) x5 = lcurve[x4,x6]; y5 = lcurve[y6,y4];
2) x6r = lspace; y6l = .8[-ydepth, y2r]; % Pen is flipped, curve ends just
2) % below where it starts on other side.
***************
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 45,45
**** File 1) FONT1.RAW[MF,DEK]/45P/3L
1) setwidth .75em;
1) pos1(1.5thickwidth,45);
1) pos2(1.05thickwidth,10);
1) pos3(1.1thickwidth,10);
1) pos4(thickwidth,10);
1) pos5(thickwidth,170);
1) pos6(.5[thickwidth,thinwidth],235);
1) pos7(thickwidth,130);
1) pos8(thickwidth,180);
1) pos9(1.1thickwidth,190);
1) z2=(.1em,xheight);
1) y1=-ydepth;
1) x1r=x2r; x3l=x9r=.1em;
1) y3=0; y9=xheight;
1) y4=y3; x4=x8=.4w;
1) dz4=(1,0);
1)
1) y8=y9;
1) x6r=.7w; y6l=.5xheight;
1) dz6=(0,1);
1) x5=.75[x4,x6]; y5=.75[y6,y4];
1) x7=.71[x8,x6]; y7=.71[y6,y8];
1)
**** File 2) FONT1.MF[MF,DEK]/45P/3L
2) setwidth .55em;
2) pos1(1.5thickwidth,45);
2) pos2(1.05thickwidth,10);
2) pos3(.9thinwidth,80);
2) pos4(thinwidth,80);
2) pos5(thinwidth,135);
2) pos6(thickwidth,180);
2) pos7(thickwidth,215);
2) pos8(thinwidth,250);
2) pos9(.5thinwidth,270);
2) z2=(.1em,xheight);
2) y1=-ydepth;
2) x1r=x2r; x3=x9r=.1em;
2) y3=.1xheight; y9=.9xheight;
2) y4=0; x4=x8=.4w;
2) dz4=(1,0);
2)
2) y8=xheight;
2) x6r=.7w; y6l=.5xheight;
2) dz6=(0,1);
2) x5r=.75[x4r,x6r]; y5r=.75[y6r,y4r];
2) x7=.75[x8,x6]; y7=.75[y6,y8];
2)
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 45,45
***************
**** File 1) FONT1.RAW[MF,DEK]/45P/28L
1) stroke(3,4,.2,.05,.05);
1) curve(4,5,6); curve(6,7,8);
1) stroke(8,9,.8,.05,.05);
1) labelpos(1,2,3,4,5,6,7,8,9);
**** File 2) FONT1.MF[MF,DEK]/45P/28L
2) stroke(3,4,.5,-.4,.2);
2) curve(4,5,6); curve(6,7,8);
2) stroke(8,9,.5,-.4,.2);
2) labelpos(1,2,3,4,5,6,7,8,9);
***************
**** File 1) FONT1.RAW[MF,DEK]/46P/3L
1) setwidth .5em;
1) cw := .75[thinwidth,thickwidth]; % Corner pen width
**** File 2) FONT1.MF[MF,DEK]/46P/3L
2) % setwidth .5em;
2) setwidth .6em;
2) cw := .75[thinwidth,thickwidth]; % Corner pen width
***************
**** File 1) FONT1.RAW[MF,DEK]/47P/6L
1) pos3(.6thinwidth,90); % The starting place for the right branch
1) pos4(.65[.6thinwidth,thickwidth],90);
1) pos5(thickwidth,90); % Joining point of two curves
1) pos6(.85[thinwidth,thickwidth],45); % at point with slope for line 5,7
**** File 2) FONT1.MF[MF,DEK]/47P/6L
2) pos3(.8thinwidth,90); % The starting place for the right branch
2) pos4(.65[.8thinwidth,thickwidth],90);
2) pos5(1.2thickwidth,90); % Joining point of two curves
2) pos6(.85[thinwidth,thickwidth],45); % at point with slope for line 5,7
***************
**** File 1) FONT1.RAW[MF,DEK]/47P/12L
1) x3=x2+.5thickwidth; y3=.75xheight; dz3=(1,2);
1) x4=.5[x3,x5]; y4=.83[y3,y5];
**** File 2) FONT1.MF[MF,DEK]/47P/12L
2) x3=x2+.5thickwidth; y3=.65xheight; dz3=(1,2);
2) x4=.5[x3,x5]; y4=.83[y3,y5];
***************
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 48,48
**** File 1) FONT1.RAW[MF,DEK]/48P/5L
1) pos1(thinwidth,-90);
1) pos2(thinwidth,-90);
1) pos3(thinwidth,-90);
1) pos4(thinwidth,-45);
1) pos5(thinwidth,0);
1) pos6(thinwidth,45);
1) pos7(thinwidth,75);
1) pos8(thinwidth,45);
1) pos9(thinwidth,0);
1) pos10(thinwidth,-45);
1) pos11(thinwidth,-90);
1) pos12(thinwidth,-90);
1) pos13(thinwidth,-90);
1) y3l=1.05xheight; y1=0.75xheight;
1) y5=y1; y7= 0.5xheight; y9= 0.25xheight;
1) y11r= 0.05xheight; y13=y9;
1) x3 = 0.5w; x1r=x3+0.5w;
1) x5l=x3-0.5w; x7 = x3; x9r = x1r;
1) x11 = x3; x13= x5l;
1)
1) x2l = 0.71[x1,x3];
1) y2l = 0.71[y1l,y3l];
1) dz3= (-1,0);
1) x4l = 0.71[x3l,x5l];
1) y4l = 0.71[y3l,y5l];
1) dz5=(0,-1);
1) x6 = 0.35[x5,x7];
1) y6 = 0.29[y5,y7];
1) x8 = 0.35[x7,x9];
1) y8 = 0.71[y7,y9];
1) dz9=(0,-1);
1) x10= 0.71[x11,x9];
1) y10= 0.29[y9,y11];
1) dz11=(-1,0);
1) x12= 0.35[x11,x13];
1) y12= 0.29[y11,y13];
**** File 2) FONT1.MF[MF,DEK]/48P/5L
2) pos1(thickwidth,-100);
2) pos2(.5[thickwidth,thinwidth],-95);
2) pos3(thinwidth,-90);
2) pos4(.375[thinwidth,thickwidth],-40);
2) pos5(.75[thinwidth,thickwidth],0);
2) pos6(thickwidth,45);
2) pos7(1.1thickwidth,75);
2) pos8(thickwidth,45);
2) pos9(.75[thinwidth,thickwidth],0);
2) pos10(.375[thinwidth,thickwidth],-40);
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 48,48
2) pos11(thinwidth,-90);
2) pos12(.5[thinwidth,thickwidth],-95);
2) pos13(thickwidth,-100);
2) y3l=1.05xheight; y1=0.85xheight;
2) y5=.75xheight; y7= 0.5xheight; y9= 0.25xheight;
2) y11l= 0.05xheight; y13=y9;
2) x3 = 0.5w; x1r=w-.05em;
2) x5l=x3-0.5w; x7 = x3; x9r = w;
2) x11 = x3; x13= x5l;
2)
2) x2l = 0.71[x3l,x1l];
2) y2l = 0.71[y1l,y3l];
2) dz3= (-1,0);
2) x4l = 0.75[x3l,x5l];
2) y4l = 0.75[y5l,y3l];
2) dz5=(0,-1);
2) x6 = 0.29[x5,x7];
2) y6 = 0.29[y7,y5];
2) dz7=(1,0);
2) x8 = 0.29[x9,x7];
2) y8 = 0.71[y9,y7];
2) dz9=(0,-1);
2) x10= 0.75[x11,x9];
2) y10= 0.25[y11,y9];
2) dz11=(-1,0);
2) x12= 0.35[x13,x11];
2) y12= 0.29[y11,y13];
***************
**** File 1) FONT1.RAW[MF,DEK]/49P/16L
1) x5=.6[x4,x6];y5=.6[y6,y4];
1) x6l=w-0.15em;y6=0.3xheight;
**** File 2) FONT1.MF[MF,DEK]/49P/16L
2) x5=.7[x4,x6];y5=.7[y6,y4];
2) x6l=w-0.15em;y6=0.3xheight;
***************
**** File 1) FONT1.RAW[MF,DEK]/50P/3L
1) setwidth .60em; %temp value
1) pos1(.75thickwidth,10);
1) pos2(.70thickwidth,10);
1) pos3(.65thickwidth,40);
1) pos4(.80[thickwidth,thinwidth],75);
1) pos5(.95[thickwidth,thinwidth],130);
1) pos6(.75thinwidth,180);
1) pos7(.80thinwidth,190);
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 50,50
1) pos8(.80thinwidth,190);
1) % coordinate information
**** File 2) FONT1.MF[MF,DEK]/50P/3L
2) setwidth .50em; %temp value
2) pos1(1.05thickwidth,10);
2) pos2(thickwidth,10);
2) pos3(.65[thickwidth,thinwidth],40);
2) pos4(.80[thickwidth,thinwidth],75);
2) pos5(.95[thickwidth,thinwidth],130);
2) pos6(thickwidth,180);
2) pos7(thickwidth,190);
2) pos8(1.1thickwidth,190);
2) % coordinate information
***************
**** File 1) FONT1.RAW[MF,DEK]/50P/18L
1) x6=x7;x7=x8;
1)
**** File 2) FONT1.MF[MF,DEK]/50P/18L
2) x6=x7;x6r=x8r;
2)
***************
**** File 1) FONT1.RAW[MF,DEK]/50P/31L
1) stroke(1,2,.3,.05,.05); % temp values.
1) curve(2,3,4);
1) curve(4,5,6);
1) stroke(6,7,.7,.05,.05);
1) dy6:=-1;
**** File 2) FONT1.MF[MF,DEK]/50P/31L
2) stroke(1,2,.3,.05,0); % temp values.
2) curve(2,3,4);
2) curve(4,5,6);
2) stroke(6,7,.7,0,.05);
2) dy6:=-1;
***************
**** File 1) FONT1.RAW[MF,DEK]/52P/21L
1) labelpos(1,2,3,4,5);
1) enddef;
**** File 2) FONT1.MF[MF,DEK]/52P/21L
2) labelpos(1,21,2,31,3,41,4,5);
2) enddef;
***************
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 52,52
**** File 1) FONT1.RAW[MF,DEK]/59P/4L
1) init.normal(3);
1) vardef make@#=begingroup clear; charcode:=ord str@#;
1) "the character "&str @#; char@#; charwd:=w/hppp;
1) shipit; endgroup
1) enddef;
1) tracingtitles:=1;
1) make.A;
1) make.B;
1) make.C;
1) make.D;
1) make.E;
1) make.F;
1) make.G;
1) make.H;
1) make.I;
1) make.J;
1) make.K;
1) make.L;
1) make.M;
1) make.N;
1) make.O;
1) make.P;
1) make.Q;
1) make.R;
1) make.S;
1) make.T;
1) make.!;
1) make.U;
1) make.V;
1) make.W;
1) make.X;
1) make.Y;
1) make.Z;
1) make.a;
1) make.b;
1) make.c;
1) make.d;
1) make.e;
1) make.f;
1) make.g;
1) make.h;
1) make.i;
1) make.j;
1) make.k;
1) make.l;
1) make.m;
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 59,59
1) make.n;
1) make.o;
1) make.p;
1) make.q;
1) make.r;
1) make.s;
1) make.t;
1) make.u;
1) make.v;
1) make.w;
1) make.x;
1) make.y;
1) make.z;
1) make.hyphen;
1) make.period;
1) make.comma;
1) end
**** File 2) FONT1.MF[MF,DEK]/59P/4L
2) %init.bold(1.618033);
2) init.normal(1.618033);
2) vardef make@#(expr ls,rs)=begingroup clear; charcode:=ord str@#;
2) "the character "&str @#; char@#; chardw:=w+ls+rs; charwd:=chardw/hppp;
2) if proofing>.5: shipout e;
2) else:
2) proofrule((0,hheight),(w+ls+rs,hheight));
2) proofrule((0,-ydepth),(w+ls+rs,-ydepth));
2) proofrule((0,-ydepth),(0,hheight));
2) proofrule((w+ls+rs,-ydepth),(w+ls+rs,hheight));
2) proofrule((0-10,0),(0+10,0));
2) proofrule((w+ls+rs-10,0),(w+ls+rs+10,0));
2) shipout (e shifted (ls,0)); fi
2) endgroup enddef;
2) proofing:=.5;
2) tracingtitles:=1;
2) make.A(-.025em,.05em);
2) make.B(0,-.025em);
2) make.C(-.02em,-.02em);
2) make.D(-.02em,0);
2) make.E(0,-.05em);
2) make.F(0,-.05em);
2) make.G(0,0);
2) make.H(0,0);
2) make.I(-.05em,-.05em);
2) make.J(0,0);
2) make.K(0,0);
2) make.L(0,-.02em);
2) make.M(0,0);
2) make.N(0,0);
1) FONT1.RAW[MF,DEK] and 2) FONT1.MF[MF,DEK] 5-28-84 22:22 pages 59,59
2) make.O(0,0);
2) make.P(.05em,-.075em);
2) make.Q(0,0);
2) make.R(0,-.2em);
2) make.S(0,0);
2) make.T(-.05em,-.05em);
2) make.!(0,-.075em);
2) make.U(0,0);
2) make.V(-.075em,0);
2) make.W(0,0);
2) make.X(-.05em,0);
2) make.Y(0,0);
2) make.Z(0,0);
2) make.a(-.05em,.05em);
2) make.b(0,.05em);
2) make.c(.1em,0);
2) make.d(-.025em,0);
2) make.e(0,0);
2) make.f(0,0);
2) make.g(0,.01em);
2) make.h(0,0);
2) make.i(0,0);
2) make.j(-.03em,0);
2) make.k(-.02em,-.05em);
2) make.l(0,0);
2) make.m(0,0);
2) make.n(-.05em,.01em);
2) make.o(0,0);
2) make.p(.05em,.025em);
2) make.q(-.02em,0);
2) make.r(0,-.025em);
2) make.s(.05em,.05em);
2) make.t(-.025em,-.05em);
2) make.u(0,.075em);
2) make.v(-.025em,-.025em);
2) make.w(-.05em,-.05em);
2) make.x(0,0);
2) make.y(0,0);
2) make.z(.05em,.05em);
2) make.hyphen(0,0);
2) make.period(0,0);
2) make.comma(0,0);
2) end
***************